home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / TEXT_1002.txt < prev    next >
Encoding:
Text File  |  1996-09-10  |  298 b   |  1 lines
  1. statusdict /diskonline known { statusdict begin diskonline  { /st {=string cvs print} def    /sp {( ) print} def    {      dup 0 5 getinterval (%disk) eq       {         dup dup 5 1 getinterval print sp         devstatus pop st sp st sp 6 {pop}         repeat clear       } {pop} ifelse    } =string devforall  } if end } if